Исходный текст

Option Explicit
Call ShowRootInfo()


'==============================================================================
' Вывести описание содержания корневого объекта "Объекты"
'==============================================================================
Sub ShowRootInfo()

        Dim obj, ObjCol, qry, QryCol, RetVal, strMsg 

        'Объект "Объекты" может содержать выборки и объекты. Получить ссылки на
        'соответствующие коллекции
        Set ObjCol = ThisApplication.Root.Objects
        Set QryCol = ThisApplication.Root.Queries
        
        'Вывести суммарную информацию и спросить, нужна ли более подробная
        RetVal = MsgBox("Корневой объект ""Объекты"" содержит " & Chr(13) & _
                 ObjCol.Count & " объектов и " & QryCol.Count & " выборок." & _
                 Chr(13) & "Вывести их описания?", vbQuestion, "Информация о настройке")        
        
        'Если пользователь хочет видеть описания объектов и выборок, получить их
        If  RetVal Then
                If ObjCol.Count > 0 Then
                        'Если коллекция объектов непустая, то сформировать строку с описаниями
                        'объектов и вывести ее
                        For Each obj in ObjCol
                                strMsg = strMsg & """" & obj.Description & """" & Chr(13)
                        Next
                        MsgBox "Объекты:" & Chr(13) & strMsg, vbInformation, "Информация"
                End If
                If QryCol.Count > 0 Then
                        'Если коллекция выборок непустая, то сформировать строку с описаниями
                        'выборок и вывести ее
                        strMsg = ""
                        For Each qry in QryCol 
                                strMsg = strMsg & """" & qry.Description & """" & Chr(13)
                        Next
                        MsgBox "Выборки:" & Chr(13) & strMsg, vbInformation, "Информация"
                End If
        End If
End Sub 
'==============================================================================